
    ##########################################################################################
    ### R code for Figure 10 of Supplemental Material
    ### : Measuring House Members' Foreign Policy Positions Using all House Foreign Policy Votes
    ##########################################################################################
 
    ### Note: Make sure to use R 64 bit version to have enough memory!!!
    # This code takes a lot longer than the Senate version. So, for quick results, I set mcmc=2000, burnin=500, thin=2. 
    # But my original setting is mcmc=10000, burnin=5000, thin=5. It took more than 2 weeks to run the MCMC simulations with my computer. 
    
    ### Also, note that the estimation of House members' ideal points requires some heavy constraints. 
    # Unlike the Senate, the size of the House makes it difficult to identify the model with a small number of constraints. 
    # As such, I relied on the foreign policy CQ Key Votes data to identify the turning point (the year that parties switched their foreign policy positions) and non-moderate members to be used for model identification.
    # That is, based on Figure 12 of Supplemental files, I constrain Democrats with 0.5 or higher (GOP with -0.5 or lower) score to be positive (negative) before 1959 (86th House).
    # Democrats with -0.5 or lower (GOP with 0.5 or hihger) since 1959 are constrained to be negative (positive). 
    # Although this sounds a lot of a priori constraints, Democrats and Republicans will be estimated to have switched their positions frequently over the course of the entire period without proper constraints. 
    # Also, you can check if these constraints are proper or not by examining if the estimated ideal points are hitting the "wall" or not.
    # That is, if the constraints are not proper, the estimated ideal points will be hitting zero from the direction that the ideal points are constrained. 
    # Most ideal points estimates do not show such behavior (except for only a couple of ideal points around 1959), indicating that the constraints were not inconsistent with the data.   


    Data <- read.table("Supplemental_Figure10_Data1.txt", header=T, sep="")  # All House Foreign Policy Votes Combined
    Time <- read.csv("Supplemental_Figure10_Data2.csv", header=T) # Time index to be fed into MCMCdynamicIRT1d 
    info2 <- read.csv("Supplemental_Figure10_Data3.csv", header=T) # Legislator Information File
    
    year.odd <- seq(from=1945, to=2010, by=2)
    T <- length(year.odd)
   
    library(MCMCpack)

    out <- MCMCdynamicIRT1d(Data, 
                            item.time.map=Time$time,
                            mcmc=3000, burnin=500, thin=3,
                            verbose=500, store.item=FALSE,            # Make sure to set store.item to FALSE to save memory
                            theta.constraints=list( # Democrats who served before the 86th congress with mean and CI > 0.5
                                                    A144A="+",
                                                    A165A="+",
                                                    A381A="+",
                                                    A477A="+",
                                                    A516A="+",
                                                    A598A="+",
                                                    A699A="+",
                                                    A785A="+",
                                                    A802A="+",
                                                    A863A="+",
                                                    A954A="+",
                                                    A1181A="+",
                                                    A1184A="+",
                                                    A1235A="+",
                                                    A1239A="+",
                                                    A1245A="+",
                                                    A1258A="+",
                                                    A1369A="+",
                                                    A1439A="+",
                                                    A1478A="+",
                                                    A1659A="+",
                                                    A1771A="+",
                                                    A1831A="+",
                                                    A1882A="+",
                                                    A1899A="+",
                                                    A1960A="+",
                                                    A2049A="+",
                                                    A2093A="+",
                                                    A2111A="+",
                                                    A2199A="+",
                                                    A2258A="+",
                                                    A2304A="+",
                                                    A2349A="+",
                                                    A2473A="+",
                                                    A2477A="+",
                                                    A2585A="+",
                                                    A2604A="+",
                                                    A2684A="+",
                                                    A2687A="+",
                                                    A2689A="+",
                                                    A2726A="+",
                                                    A2833A="+",
                                                    A2965A="+",
                                                    A2986A="+",
                                                    A2987A="+",
                                                    A3114A="+",
                                                    A3207A="+",
                                                    A3251A="+",
                                                    A3436A="+",
                                                    A3464A="+",
                                                    A3524A="+",
                                                    A3700A="+",
                                                    A3704A="+",
                                                    A3715A="+",
                                                    A3719A="+",
                                                    A3744A="+",
                                                    A3752A="+",
                                                    A3809A="+",
                                                    A4067A="+",
                                                    A4078A="+",
                                                    A4142A="+",
                                                    A4201A="+",
                                                    A4244A="+",
                                                    A4264A="+",
                                                    A4278A="+",
                                                    A4279A="+",
                                                    A4318A="+",
                                                    A4471A="+",
                                                    A4475A="+",
                                                    A4552A="+",
                                                    A4681A="+",
                                                    A4836A="+",
                                                    A4851A="+",
                                                    A4892A="+",
                                                    A4970A="+",
                                                    A4978A="+",
                                                    A4979A="+",
                                                    A5117A="+",
                                                    A5122A="+",
                                                    A5136A="+",
                                                    A5208A="+",
                                                    A5317A="+",
                                                    A5359A="+",
                                                    A5531A="+",
                                                    A5616A="+",
                                                    A5685A="+",
                                                    A5831A="+",
                                                    A5847A="+",
                                                    A5859A="+",
                                                    A5947A="+",
                                                    A5950A="+",
                                                    A5953A="+",
                                                    A5967A="+",
                                                    A5966A="+",
                                                    A6100A="+",
                                                    A6255A="+",
                                                    A6597A="+",
                                                    A6799A="+",
                                                    A6813A="+",
                                                    A6856A="+",
                                                    A6972A="+",
                                                    A6998A="+",
                                                    A7073A="+",
                                                    A7114A="+",
                                                    A7117A="+",
                                                    A7142A="+",
                                                    A7233A="+",
                                                    A7239A="+",
                                                    A7372A="+",
                                                    A7371A="+",
                                                    A7390A="+",
                                                    A7430A="+",
                                                    A7588A="+",
                                                    A7611A="+",
                                                    A7622A="+",
                                                    A7678A="+",
                                                    A7683A="+",
                                                    A7709A="+",
                                                    A7722A="+",
                                                    A7754A="+",
                                                    A7823A="+",
                                                    A7869A="+",
                                                    A7958A="+",
                                                    A7980A="+",
                                                    A8017A="+",
                                                    A8018A="+",
                                                    A8023A="+",
                                                    A8026A="+",
                                                    A8089A="+",
                                                    A8140A="+",
                                                    A8162A="+",
                                                    A8163A="+",
                                                    A8172A="+",
                                                    A8219A="+",
                                                    A8230A="+",
                                                    A8451A="+",
                                                    A8569A="+",
                                                    A8735A="+",
                                                    A8739A="+",
                                                    A8764A="+",
                                                    A8851A="+",
                                                    A8944A="+",
                                                    A8949A="+",
                                                    A9071A="+",
                                                    A9087A="+",
                                                    A9183A="+",
                                                    A9283A="+",
                                                    A9312A="+",
                                                    A9406A="+",
                                                    A9424A="+",
                                                    A9459A="+",
                                                    A9687A="+",
                                                    A9859A="+",
                                                    A9897A="+",
                                                    A9921A="+",
                                                    A9962A="+",
                                                    A10077A="+",
                                                    A10344A="+",
                                                    A10350A="+",
                                                    A10373A="+",
                                                    A10468A="+",
                                                    A520A="+",
                                                    A1540A="+",
                                                    A2448A="+",
                                                    A5035A="+",
                                                    A5180A="+",
                                                    A5459A="+",
                                                    A6396A="+",
                                                    A8593A="+",
                                                    A10002A="+",
                                                    A10244A="+",
                                                    A869A="+",
                                                    A998A="+",
                                                    A1208A="+",
                                                    A1273A="+",
                                                    A1300A="+",
                                                    A1316A="+",
                                                    A1676A="+",
                                                    A1685A="+",
                                                    A1719A="+",
                                                    A1829A="+",
                                                    A2193A="+",
                                                    A2353A="+",
                                                    A2468A="+",
                                                    A3386A="+",
                                                    A3415A="+",
                                                    A3614A="+",
                                                    A3714A="+",
                                                    A4290A="+",
                                                    A4644A="+",
                                                    A4822A="+",
                                                    A5096A="+",
                                                    A5371A="+",
                                                    A5671A="+",
                                                    A5684A="+",
                                                    A5905A="+",
                                                    A5991A="+",
                                                    A6134A="+",
                                                    A6259A="+",
                                                    A6267A="+",
                                                    A6317A="+",
                                                    A6387A="+",
                                                    A6466A="+",
                                                    A6561A="+",
                                                    A6809A="+",
                                                    A6951A="+",
                                                    A7078A="+",
                                                    A7103A="+",
                                                    A7234A="+",
                                                    A7680A="+",
                                                    A7702A="+",
                                                    A7847A="+",
                                                    A8050A="+",
                                                    A8535A="+",
                                                    A9561A="+",
                                                    A9711A="+",
                                                    A9784A="+",
                                                    A9927A="+",
                                                    A10222A="+",
                                                    A1190A="+",
                                                    A2662A="+",
                                                    A3149A="+",
                                                    A3802A="+",
                                                    A5471A="+",
                                                    A8506A="+",
                                                    A10431A="+",
                                                    A912A="+",
                                                    A1977A="+",
                                                    A2636A="+",
                                                    A2365A="+",
                                                    A6819A="+",
                                                    A9505A="+",
                                                    # Democrats who served since the 86th congress with mean and CI < -0.5 
                                                    A948A="-",
                                                    A1265A="-",
                                                    A1577A="-",
                                                    A1911A="-",
                                                    A2295A="-",
                                                    A2752A="-",
                                                    A3433A="-",
                                                    A3553A="-",
                                                    A3575A="-",
                                                    A3936A="-",
                                                    A4081A="-",
                                                    A4276A="-",
                                                    A5098A="-",
                                                    A5101A="-",
                                                    A6661A="-",
                                                    A7043A="-",
                                                    A8080A="-",
                                                    A10500A="-",
                                                    A10508A="-",
                                                    A10511A="-",
                                                    A10520A="-",
                                                    A10524A="-",
                                                    A10529A="-",
                                                    A10540A="-",
                                                    A10545A="-",
                                                    A10551A="-",
                                                    A10555A="-",
                                                    A10561A="-",
                                                    A10566A="-",
                                                    A10573A="-",
                                                    A10577A="-",
                                                    A10583A="-",
                                                    A10585A="-",
                                                    A10588A="-",
                                                    A10589A="-",
                                                    A10591A="-",
                                                    A10594A="-",
                                                    A10595A="-",
                                                    A10599A="-",
                                                    A10605A="-",
                                                    A10609A="-",
                                                    A10611A="-",
                                                    A10612A="-",
                                                    A10621A="-",
                                                    A10624A="-",
                                                    A10627A="-",
                                                    A10633A="-",
                                                    A10700A="-",
                                                    A10701A="-",
                                                    A10705A="-",
                                                    A10711A="-",
                                                    A10713A="-",
                                                    A10715A="-",
                                                    A10718A="-",
                                                    A10723A="-",
                                                    A10726A="-",
                                                    A10727A="-",
                                                    A10731A="-",
                                                    A10732A="-",
                                                    A10736A="-",
                                                    A10737A="-",
                                                    A10739A="-",
                                                    A10742A="-",
                                                    A10748A="-",
                                                    A10756A="-",
                                                    A10757A="-",
                                                    A10760A="-",
                                                    A10790A="-",
                                                    A10764A="-",
                                                    A10766A="-",
                                                    A10768A="-",
                                                    A10777A="-",
                                                    A10793A="-",
                                                    A10784A="-",
                                                    A11004A="-",
                                                    A11013A="-",
                                                    A11014A="-",
                                                    A11027A="-",
                                                    A11064A="-",
                                                    A11061A="-",
                                                    A12001A="-",
                                                    A12044A="-",
                                                    A12008A="-",
                                                    A12009A="-",
                                                    A12045A="-",
                                                    A12040A="-",
                                                    A12019A="-",
                                                    A12021A="-",
                                                    A12025A="-",
                                                    A12036A="-",
                                                    A12030A="-",
                                                    A13000A="-",
                                                    A13001A="-",
                                                    A13003A="-",
                                                    A13004A="-",
                                                    A13006A="-",
                                                    A13007A="-",
                                                    A13010A="-",
                                                    A13011A="-",
                                                    A13013A="-",
                                                    A13022A="-",
                                                    A13030A="-",
                                                    A13031A="-",
                                                    A13035A="-",
                                                    A13039A="-",
                                                    A13040A="-",
                                                    A14008A="-",
                                                    A14076A="-",
                                                    A14068A="-",
                                                    A14022A="-",
                                                    A14027A="-",
                                                    A14029A="-",
                                                    A14070A="-",
                                                    A14036A="-",
                                                    A14039A="-",
                                                    A14072A="-",
                                                    A14042A="-",
                                                    A90618A="-",
                                                    A14049A="-",
                                                    A14051A="-",
                                                    A14053A="-",
                                                    A14055A="-",
                                                    A14075A="-",
                                                    A14074A="-",
                                                    A14063A="-",
                                                    A14201A="-",
                                                    A14202A="-",
                                                    A14205A="-",
                                                    A14206A="-",
                                                    A14207A="-",
                                                    A14208A="-",
                                                    A14209A="-",
                                                    A14210A="-",
                                                    A14211A="-",
                                                    A14213A="-",
                                                    A14214A="-",
                                                    A14216A="-",
                                                    A14217A="-",
                                                    A14223A="-",
                                                    A14224A="-",
                                                    A14230A="-",
                                                    A14231A="-",
                                                    A14232A="-",
                                                    A14244A="-",
                                                    A14248A="-",
                                                    A14289A="-",
                                                    A14254A="-",
                                                    A14253A="-",
                                                    A14255A="-",
                                                    A14256A="-",
                                                    A14257A="-",
                                                    A14258A="-",
                                                    A14263A="-",
                                                    A14264A="-",
                                                    A14265A="-",
                                                    A14267A="-",
                                                    A14269A="-",
                                                    A11043A="-",
                                                    A14271A="-",
                                                    A14274A="-",
                                                    A14275A="-",
                                                    A14277A="-",
                                                    A14279A="-",
                                                    A14280A="-",
                                                    A14281A="-",
                                                    A14282A="-",
                                                    A14400A="-",
                                                    A14405A="-",
                                                    A14407A="-",
                                                    A14409A="-",
                                                    A14413A="-",
                                                    A14470A="-",
                                                    A14421A="-",
                                                    A14430A="-",
                                                    A14431A="-",
                                                    A14435A="-",
                                                    A14440A="-",
                                                    A14443A="-",
                                                    A14444A="-",
                                                    A14445A="-",
                                                    A14448A="-",
                                                    A14451A="-",
                                                    A14458A="-",
                                                    A14460A="-",
                                                    A14463A="-",
                                                    A14604A="-",
                                                    A14613A="-",
                                                    A14681A="-",
                                                    A14620A="-",
                                                    A14621A="-",
                                                    A14624A="-",
                                                    A14625A="-",
                                                    A14629A="-",
                                                    A14631A="-",
                                                    A14632A="-",
                                                    A14638A="-",
                                                    A14643A="-",
                                                    A14646A="-",
                                                    A14649A="-",
                                                    A14650A="-",
                                                    A14653A="-",
                                                    A14656A="-",
                                                    A14658A="-",
                                                    A14665A="-",
                                                    A14666A="-",
                                                    A14667A="-",
                                                    A14672A="-",
                                                    A14673A="-",
                                                    A14808A="-",
                                                    A14812A="-",
                                                    A14815A="-",
                                                    A14816A="-",
                                                    A14818A="-",
                                                    A14823A="-",
                                                    A14824A="-",
                                                    A14825A="-",
                                                    A14880A="-",
                                                    A14833A="-",
                                                    A14873A="-",
                                                    A14877A="-",
                                                    A14837A="-",
                                                    A14879A="-",
                                                    A14856A="-",
                                                    A14858A="-",
                                                    A14866A="-",
                                                    A14871A="-",
                                                    A15000A="-",
                                                    A15004A="-",
                                                    A15005A="-",
                                                    A15008A="-",
                                                    A15009A="-",
                                                    A15010A="-",
                                                    A15011A="-",
                                                    A15013A="-",
                                                    A15080A="-",
                                                    A15021A="-",
                                                    A15023A="-",
                                                    A15024A="-",
                                                    A15079A="-",
                                                    A15029A="-",
                                                    A15082A="-",
                                                    A15032A="-",
                                                    A15033A="-",
                                                    A15034A="-",
                                                    A15041A="-",
                                                    A15083A="-",
                                                    A15044A="-",
                                                    A15045A="-",
                                                    A15046A="-",
                                                    A15049A="-",
                                                    A15050A="-",
                                                    A15052A="-",
                                                    A15059A="-",
                                                    A15062A="-",
                                                    A15064A="-",
                                                    A15065A="-",
                                                    A15070A="-",
                                                    A15071A="-",
                                                    A15072A="-",
                                                    A15076A="-",
                                                    A15077A="-",
                                                    A15245A="-",
                                                    A15084A="-",
                                                    A15088A="-",
                                                    A15089A="-",
                                                    A15100A="-",
                                                    A15101A="-",
                                                    A15104A="-",
                                                    A15107A="-",
                                                    A15228A="-",
                                                    A15121A="-",
                                                    A15124A="-",
                                                    A15404A="-",
                                                    A15408A="-",
                                                    A15453A="-",
                                                    A15410A="-",
                                                    A15411A="-",
                                                    A15412A="-",
                                                    A15421A="-",
                                                    A15425A="-",
                                                    A15426A="-",
                                                    A15427A="-",
                                                    A15431A="-",
                                                    A15433A="-",
                                                    A15435A="-",
                                                    A15448A="-",
                                                    A15438A="-",
                                                    A15442A="-",
                                                    A15443A="-",
                                                    A15444A="-",
                                                    A15635A="-",
                                                    A15603A="-",
                                                    A15609A="-",
                                                    A15612A="-",
                                                    A15613A="-",
                                                    A15614A="-",
                                                    A15616A="-",
                                                    A15454A="-",
                                                    A15619A="-",
                                                    A29134A="-",
                                                    A15629A="-",
                                                    A29145A="-",
                                                    A29132A="-",
                                                    A29121A="-",
                                                    A29140A="-",
                                                    A29125A="-",
                                                    A29116A="-",
                                                    A29109A="-",
                                                    A29105A="-",
                                                    A29144A="-",
                                                    A29120A="-",
                                                    A29139A="-",
                                                    A29149A="-",
                                                    A29123A="-",
                                                    A29101A="-",
                                                    A29127A="-",
                                                    A29142A="-",
                                                    A29106A="-",
                                                    A39315A="-",
                                                    A29316A="-",
                                                    A29339A="-",
                                                    A29328A="-",
                                                    A29389A="-",
                                                    A39310A="-",
                                                    A29382A="-",
                                                    A39301A="-",
                                                    A29335A="-",
                                                    A29304A="-",
                                                    A29312A="-",
                                                    A29313A="-",
                                                    A29354A="-",
                                                    A29325A="-",
                                                    A29394A="-",
                                                    A39304A="-",
                                                    A29348A="-",
                                                    A29308A="-",
                                                    A29318A="-",
                                                    A29337A="-",
                                                    A29302A="-",
                                                    A29380A="-",
                                                    A29937A="-",
                                                    A39305A="-",
                                                    A39313A="-",
                                                    A29379A="-",
                                                    A29344A="-",
                                                    A29358A="-",
                                                    A29334A="-",
                                                    A29373A="-",
                                                    A29366A="-",
                                                    A29377A="-",
                                                    A29384A="-",
                                                    A29347A="-",
                                                    A29317A="-",
                                                    A29346A="-",
                                                    A39307A="-",
                                                    A29747A="-",
                                                    A29360A="-",
                                                    A29368A="-",
                                                    A29319A="-",
                                                    A29378A="-",
                                                    A29383A="-",
                                                    A29309A="-",
                                                    A29355A="-",
                                                    A29528A="-",
                                                    A29574A="-",
                                                    A29588A="-",
                                                    A29587A="-",
                                                    A29571A="-",
                                                    A29561A="-",
                                                    A29559A="-",
                                                    A29585A="-",
                                                    A29573A="-",
                                                    A29564A="-",
                                                    A29504A="-",
                                                    A29533A="-",
                                                    A29535A="-",
                                                    A29586A="-",
                                                    A29531A="-",
                                                    A29526A="-",
                                                    A29728A="-",
                                                    A29702A="-",
                                                    A29721A="-",
                                                    A29713A="-",
                                                    A29777A="-",
                                                    A29706A="-",
                                                    A29774A="-",
                                                    A29720A="-",
                                                    A29717A="-",
                                                    A29710A="-",
                                                    A29731A="-",
                                                    A29745A="-",
                                                    A29756A="-",
                                                    A29763A="-",
                                                    A29750A="-",
                                                    A29770A="-",
                                                    A29733A="-",
                                                    A29769A="-",
                                                    A29748A="-",
                                                    A29761A="-",
                                                    A29778A="-",
                                                    A29744A="-",
                                                    A29729A="-",
                                                    A29776A="-",
                                                    A29741A="-",
                                                    A29764A="-",
                                                    A29771A="-",
                                                    A29742A="-",
                                                    A29709A="-",
                                                    A29707A="-",
                                                    A29768A="-",
                                                    A29703A="-",
                                                    A29732A="-",
                                                    A29705A="-",
                                                    A29730A="-",
                                                    A29715A="-",
                                                    A29942A="-",
                                                    A29938A="-",
                                                    A29940A="-",
                                                    A29922A="-",
                                                    A29919A="-",
                                                    A29925A="-",
                                                    A29943A="-",
                                                    A29934A="-",
                                                    A29923A="-",
                                                    A29930A="-",
                                                    A29908A="-",
                                                    A29915A="-",
                                                    A29903A="-",
                                                    A29911A="-",
                                                    A29901A="-",
                                                    A29906A="-",
                                                    A29924A="-",
                                                    A29926A="-",
                                                    A29931A="-",
                                                    A20147A="-",
                                                    A20108A="-",
                                                    A20103A="-",
                                                    A20129A="-",
                                                    A20136A="-",
                                                    A20145A="-",
                                                    A20119A="-",
                                                    A20122A="-",
                                                    A20102A="-",
                                                    A20104A="-",
                                                    A20105A="-",
                                                    A20106A="-",
                                                    A20339A="-",
                                                    A20354A="-",
                                                    A20338A="-",
                                                    A20340A="-",
                                                    A20306A="-",
                                                    A20302A="-",
                                                    A20323A="-",
                                                    A20305A="-",
                                                    A20318A="-",
                                                    A20358A="-",
                                                    A20328A="-",
                                                    A20341A="-",
                                                    A20329A="-",
                                                    A20343A="-",
                                                    A20310A="-",
                                                    A20321A="-",
                                                    A20330A="-",
                                                    A20516A="-",
                                                    A20517A="-",
                                                    A20529A="-",
                                                    A20519A="-",
                                                    A20508A="-",
                                                    A20538A="-",
                                                    A20537A="-",
                                                    A20502A="-",
                                                    A20525A="-",
                                                    A20542A="-",
                                                    A20504A="-",
                                                    A20736A="-",
                                                    A20719A="-",
                                                    A20757A="-",
                                                    A20708A="-",
                                                    A20733A="-",
                                                    A20748A="-",
                                                    A20706A="-",
                                                    A20763A="-",
                                                    A20727A="-",
                                                    A20735A="-",
                                                    A20734A="-",
                                                    A20716A="-",
                                                    A20713A="-",
                                                    A20732A="-",
                                                    A20712A="-",
                                                    A20751A="-",
                                                    A20711A="-",
                                                    A20720A="-",
                                                    A20702A="-",
                                                    A20707A="-",
                                                    A20705A="-",
                                                    A20752A="-",
                                                    A20724A="-",
                                                    A20744A="-",
                                                    A20731A="-",
                                                    A20762A="-",
                                                    A20740A="-",
                                                    A20754A="-",
                                                    A20726A="-",
                                                    A20750A="-",
                                                    A20739A="-",
                                                    A20723A="-",
                                                    A20952A="-",
                                                    A20941A="-",
                                                    A20958A="-",
                                                    A20908A="-",
                                                    A20942A="-",
                                                    A20932A="-",
                                                    A20935A="-",
                                                    A20920A="-",
                                                    A20904A="-",
                                                    A20954A="-",
                                                    A20922A="-",
                                                    A20944A="-",
                                                    A20934A="-",
                                                    # Republicans who served before 86th congress with estimates < -0.5
                                                    A39A="-",
                                                    A173A="-",
                                                    A188A="-",
                                                    A207A="-",
                                                    A248A="-",
                                                    A464A="-",
                                                    A512A="-",
                                                    A546A="-",
                                                    A621A="-",
                                                    A641A="-",
                                                    A731A="-",
                                                    A758A="-",
                                                    A953A="-",
                                                    A1000A="-",
                                                    A1161A="-",
                                                    A1197A="-",
                                                    A1218A="-",
                                                    A1340A="-",
                                                    A1450A="-",
                                                    A1510A="-",
                                                    A1570A="-",
                                                    A1723A="-",
                                                    A1803A="-",
                                                    A1839A="-",
                                                    A1851A="-",
                                                    A1920A="-",
                                                    A1928A="-",
                                                    A1931A="-",
                                                    A2159A="-",
                                                    A2256A="-",
                                                    A2267A="-",
                                                    A2538A="-",
                                                    A2609A="-",
                                                    A2647A="-",
                                                    A2653A="-",
                                                    A2803A="-",
                                                    A2827A="-",
                                                    A2924A="-",
                                                    A2935A="-",
                                                    A2947A="-",
                                                    A2948A="-",
                                                    A2963A="-",
                                                    A3096A="-",
                                                    A3396A="-",
                                                    A3446A="-",
                                                    A3518A="-",
                                                    A3538A="-",
                                                    A3569A="-",
                                                    A3592A="-",
                                                    A3604A="-",
                                                    A3605A="-",
                                                    A3682A="-",
                                                    A3737A="-",
                                                    A3756A="-",
                                                    A3831A="-",
                                                    A3851A="-",
                                                    A3888A="-",
                                                    A3890A="-",
                                                    A3902A="-",
                                                    A3924A="-",
                                                    A3937A="-",
                                                    A3946A="-",
                                                    A4031A="-",
                                                    A4082A="-",
                                                    A4340A="-",
                                                    A4371A="-",
                                                    A4372A="-",
                                                    A4429A="-",
                                                    A4450A="-",
                                                    A4486A="-",
                                                    A4537A="-",
                                                    A4538A="-",
                                                    A4562A="-",
                                                    A4648A="-",
                                                    A4720A="-",
                                                    A4917A="-",
                                                    A4925A="-",
                                                    A4941A="-",
                                                    A4976A="-",
                                                    A4983A="-",
                                                    A5059A="-",
                                                    A5072A="-",
                                                    A5109A="-",
                                                    A5110A="-",
                                                    A5119A="-",
                                                    A5288A="-",
                                                    A5352A="-",
                                                    A5434A="-",
                                                    A5488A="-",
                                                    A5552A="-",
                                                    A5580A="-",
                                                    A5602A="-",
                                                    A5636A="-",
                                                    A6039A="-",
                                                    A6070A="-",
                                                    A6169A="-",
                                                    A6186A="-",
                                                    A6262A="-",
                                                    A6358A="-",
                                                    A6456A="-",
                                                    A6474A="-",
                                                    A6761A="-",
                                                    A6796A="-",
                                                    A6823A="-",
                                                    A7044A="-",
                                                    A7415A="-",
                                                    A7472A="-",
                                                    A7487A="-",
                                                    A7495A="-",
                                                    A7578A="-",
                                                    A7699A="-",
                                                    A7779A="-",
                                                    A7864A="-",
                                                    A7932A="-",
                                                    A7959A="-",
                                                    A7996A="-",
                                                    A8005A="-",
                                                    A8009A="-",
                                                    A8283A="-",
                                                    A8284A="-",
                                                    A8318A="-",
                                                    A8392A="-",
                                                    A8406A="-",
                                                    A8484A="-",
                                                    A8533A="-",
                                                    A8619A="-",
                                                    A8663A="-",
                                                    A8666A="-",
                                                    A8813A="-",
                                                    A8879A="-",
                                                    A8924A="-",
                                                    A8960A="-",
                                                    A9086A="-",
                                                    A9090A="-",
                                                    A9160A="-",
                                                    A9168A="-",
                                                    A9301A="-",
                                                    A9377A="-",
                                                    A9427A="-",
                                                    A9688A="-",
                                                    A9693A="-",
                                                    A9705A="-",
                                                    A9917A="-",
                                                    A10095A="-",
                                                    A10283A="-",
                                                    A10303A="-",
                                                    A10311A="-",
                                                    A10348A="-",
                                                    A116A="-",
                                                    A412A="-",
                                                    A823A="-",
                                                    A971A="-",
                                                    A1088A="-",
                                                    A1324A="-",
                                                    A2087A="-",
                                                    A2089A="-",
                                                    A2206A="-",
                                                    A3434A="-",
                                                    A4911A="-",
                                                    A5116A="-",
                                                    A5656A="-",
                                                    A5790A="-",
                                                    A5898A="-",
                                                    A5946A="-",
                                                    A6246A="-",
                                                    A6449A="-",
                                                    A6481A="-",
                                                    A6745A="-",
                                                    A6922A="-",
                                                    A7138A="-",
                                                    A7245A="-",
                                                    A7411A="-",
                                                    A7551A="-",
                                                    A7566A="-",
                                                    A7803A="-",
                                                    A8170A="-",
                                                    A8193A="-",
                                                    A8217A="-",
                                                    A8299A="-",
                                                    A8301A="-",
                                                    A9537A="-",
                                                    A9584A="-",
                                                    A10459A="-",
                                                    A1254A="-",
                                                    A3534A="-",
                                                    A3649A="-",
                                                    A3874A="-",
                                                    A4050A="-",
                                                    A4493A="-",
                                                    A4880A="-",
                                                    A5020A="-",
                                                    A5803A="-",
                                                    A6863A="-",
                                                    A8322A="-",
                                                    A9657A="-",
                                                    A9956A="-",
                                                    A1A="-",
                                                    A235A="-",
                                                    A550A="-",
                                                    A1152A="-",
                                                    A2227A="-",
                                                    A2507A="-",
                                                    A2531A="-",
                                                    A4134A="-",
                                                    A4437A="-",
                                                    A4751A="-",
                                                    A5267A="-",
                                                    A6389A="-",
                                                    A7637A="-",
                                                    A8426A="-",
                                                    A8556A="-",
                                                    A9338A="-",
                                                    A9653A="-",
                                                    A10191A="-",
                                                    A10330A="-",
                                                    A1748A="-",
                                                    A2038A="-",
                                                    A4431A="-",
                                                    A4660A="-",
                                                    A5370A="-",
                                                    A6851A="-",
                                                    A9025A="-",
                                                    A10437A="-",
                                                    A1667A="-",
                                                    A3197A="-",
                                                    A1367A="-",
                                                    A5120A="-",
                                                    A6933A="-",

                                                   # Republicans who served since 86th congress with estimates > 0.5
                                                    A10501A="+",
                                                    A10502A="+",
                                                    A10503A="+",
                                                    A10504A="+",
                                                    A10507A="+",
                                                    A10510A="+",
                                                    A10513A="+",
                                                    A10516A="+",
                                                    A10517A="+",
                                                    A10521A="+",
                                                    A10523A="+",
                                                    A10525A="+",
                                                    A10530A="+",
                                                    A10534A="+",
                                                    A10536A="+",
                                                    A10537A="+",
                                                    A10548A="+",
                                                    A10552A="+",
                                                    A10553A="+",
                                                    A10556A="+",
                                                    A10564A="+",
                                                    A10568A="+",
                                                    A10569A="+",
                                                    A10571A="+",
                                                    A10574A="+",
                                                    A10576A="+",
                                                    A10579A="+",
                                                    A10580A="+",
                                                    A10581A="+",
                                                    A10584A="+",
                                                    A10593A="+",
                                                    A10597A="+",
                                                    A10598A="+",
                                                    A10604A="+",
                                                    A10606A="+",
                                                    A10607A="+",
                                                    A10608A="+",
                                                    A10616A="+",
                                                    A10617A="+",
                                                    A10619A="+",
                                                    A10625A="+",
                                                    A10626A="+",
                                                    A10629A="+",
                                                    A10631A="+",
                                                    A10639A="+",
                                                    A10702A="+",
                                                    A10786A="+",
                                                    A10706A="+",
                                                    A10709A="+",
                                                    A10710A="+",
                                                    A10712A="+",
                                                    A10717A="+",
                                                    A10719A="+",
                                                    A10721A="+",
                                                    A10722A="+",
                                                    A10734A="+",
                                                    A10755A="+",
                                                    A10749A="+",
                                                    A10763A="+",
                                                    A10794A="+",
                                                    A10781A="+",
                                                    A10782A="+",
                                                    A11002A="+",
                                                    A11007A="+",
                                                    A11066A="+",
                                                    A11012A="+",
                                                    A11016A="+",
                                                    A11018A="+",
                                                    A11020A="+",
                                                    A11022A="+",
                                                    A11025A="+",
                                                    A11028A="+",
                                                    A11029A="+",
                                                    A11034A="+",
                                                    A11036A="+",
                                                    A11038A="+",
                                                    A11039A="+",
                                                    A11062A="+",
                                                    A11046A="+",
                                                    A11047A="+",
                                                    A11048A="+",
                                                    A11049A="+",
                                                    A11050A="+",
                                                    A11053A="+",
                                                    A10634A="+",
                                                    A11055A="+",
                                                    A11057A="+",
                                                    A11058A="+",
                                                    A11059A="+",
                                                    A12006A="+",
                                                    A12010A="+",
                                                    A12041A="+",
                                                    A12015A="+",
                                                    A12037A="+",
                                                    A12020A="+",
                                                    A12022A="+",
                                                    A12026A="+",
                                                    A12028A="+",
                                                    A12043A="+",
                                                    A12029A="+",
                                                    A12033A="+",
                                                    A13002A="+",
                                                    A13005A="+",
                                                    A13018A="+",
                                                    A13020A="+",
                                                    A13021A="+",
                                                    A13025A="+",
                                                    A13034A="+",
                                                    A13036A="+",
                                                    A13041A="+",
                                                    A13042A="+",
                                                    A13044A="+",
                                                    A13045A="+",
                                                    A13046A="+",
                                                    A13047A="+",
                                                    A14000A="+",
                                                    A14002A="+",
                                                    A14003A="+",
                                                    A14069A="+",
                                                    A14004A="+",
                                                    A14007A="+",
                                                    A13055A="+",
                                                    A14009A="+",
                                                    A14011A="+",
                                                    A14013A="+",
                                                    A14014A="+",
                                                    A14018A="+",
                                                    A14019A="+",
                                                    A14020A="+",
                                                    A14021A="+",
                                                    A14023A="+",
                                                    A14024A="+",
                                                    A14028A="+",
                                                    A14071A="+",
                                                    A14031A="+",
                                                    A14033A="+",
                                                    A14034A="+",
                                                    A14035A="+",
                                                    A14038A="+",
                                                    A14040A="+",
                                                    A14041A="+",
                                                    A14043A="+",
                                                    A14045A="+",
                                                    A14052A="+",
                                                    A14056A="+",
                                                    A14057A="+",
                                                    A14060A="+",
                                                    A14061A="+",
                                                    A14066A="+",
                                                    A14065A="+",
                                                    A14288A="+",
                                                    A14225A="+",
                                                    A14226A="+",
                                                    A14227A="+",
                                                    A14239A="+",
                                                    A94891A="+",
                                                    A14242A="+",
                                                    A14243A="+",
                                                    A14245A="+",
                                                    A14259A="+",
                                                    A14290A="+",
                                                    A14273A="+",
                                                    A14276A="+",
                                                    A14403A="+",
                                                    A14410A="+",
                                                    A14411A="+",
                                                    A14414A="+",
                                                    A14415A="+",
                                                    A14469A="+",
                                                    A14437A="+",
                                                    A14438A="+",
                                                    A14447A="+",
                                                    A14449A="+",
                                                    A14450A="+",
                                                    A14466A="+",
                                                    A14456A="+",
                                                    A14461A="+",
                                                    A14605A="+",
                                                    A14606A="+",
                                                    A14609A="+",
                                                    A14610A="+",
                                                    A14611A="+",
                                                    A14612A="+",
                                                    A14614A="+",
                                                    A14615A="+",
                                                    A14616A="+",
                                                    A14618A="+",
                                                    A14619A="+",
                                                    A14622A="+",
                                                    A14627A="+",
                                                    A14630A="+",
                                                    A14634A="+",
                                                    A14635A="+",
                                                    A14637A="+",
                                                    A14639A="+",
                                                    A14642A="+",
                                                    A14644A="+",
                                                    A14645A="+",
                                                    A14647A="+",
                                                    A14652A="+",
                                                    A14675A="+",
                                                    A14654A="+",
                                                    A14655A="+",
                                                    A14657A="+",
                                                    A14660A="+",
                                                    A14662A="+",
                                                    A14669A="+",
                                                    A14670A="+",
                                                    A14878A="+",
                                                    A14802A="+",
                                                    A14803A="+",
                                                    A14805A="+",
                                                    A14806A="+",
                                                    A14809A="+",
                                                    A14810A="+",
                                                    A14813A="+",
                                                    A14819A="+",
                                                    A14821A="+",
                                                    A14822A="+",
                                                    A14826A="+",
                                                    A14827A="+",
                                                    A14829A="+",
                                                    A14830A="+",
                                                    A14832A="+",
                                                    A14834A="+",
                                                    A14835A="+",
                                                    A14836A="+",
                                                    A14838A="+",
                                                    A14839A="+",
                                                    A14840A="+",
                                                    A14841A="+",
                                                    A14842A="+",
                                                    A14844A="+",
                                                    A14845A="+",
                                                    A14846A="+",
                                                    A14848A="+",
                                                    A14849A="+",
                                                    A14875A="+",
                                                    A14852A="+",
                                                    A14854A="+",
                                                    A14860A="+",
                                                    A14872A="+",
                                                    A14861A="+",
                                                    A14862A="+",
                                                    A14864A="+",
                                                    A14865A="+",
                                                    A14868A="+",
                                                    A14869A="+",
                                                    A14870A="+",
                                                    A15002A="+",
                                                    A15003A="+",
                                                    A15006A="+",
                                                    A15014A="+",
                                                    A15016A="+",
                                                    A15020A="+",
                                                    A15025A="+",
                                                    A15026A="+",
                                                    A14628A="+",
                                                    A15030A="+",
                                                    A15035A="+",
                                                    A15037A="+",
                                                    A15039A="+",
                                                    A15040A="+",
                                                    A15047A="+",
                                                    A15051A="+",
                                                    A15058A="+",
                                                    A15063A="+",
                                                    A14454A="+",
                                                    A15066A="+",
                                                    A15075A="+",
                                                    A15125A="+",
                                                    A15085A="+",
                                                    A15086A="+",
                                                    A15087A="+",
                                                    A15090A="+",
                                                    A15091A="+",
                                                    A15092A="+",
                                                    A15093A="+",
                                                    A15094A="+",
                                                    A15095A="+",
                                                    A15097A="+",
                                                    A15098A="+",
                                                    A15099A="+",
                                                    A15102A="+",
                                                    A14428A="+",
                                                    A15105A="+",
                                                    A15106A="+",
                                                    A15108A="+",
                                                    A15111A="+",
                                                    A15123A="+",
                                                    A15112A="+",
                                                    A15114A="+",
                                                    A15115A="+",
                                                    A15116A="+",
                                                    A15118A="+",
                                                    A15119A="+",
                                                    A15120A="+",
                                                    A15401A="+",
                                                    A15402A="+",
                                                    A15405A="+",
                                                    A15406A="+",
                                                    A15409A="+",
                                                    A15413A="+",
                                                    A15417A="+",
                                                    A15419A="+",
                                                    A15420A="+",
                                                    A15422A="+",
                                                    A15424A="+",
                                                    A15428A="+",
                                                    A15429A="+",
                                                    A15451A="+",
                                                    A15439A="+",
                                                    A15440A="+",
                                                    A15445A="+",
                                                    A15446A="+",
                                                    A15447A="+",
                                                    A15601A="+",
                                                    A15602A="+",
                                                    A15455A="+",
                                                    A15604A="+",
                                                    A15605A="+",
                                                    A15415A="+",
                                                    A15606A="+",
                                                    A15608A="+",
                                                    A15639A="+",
                                                    A15618A="+",
                                                    A95122A="+",
                                                    A15621A="+",
                                                    A15634A="+",
                                                    A15624A="+",
                                                    A15625A="+",
                                                    A15627A="+",
                                                    A15633A="+",
                                                    A15630A="+",
                                                    A29108A="+",
                                                    A29148A="+",
                                                    A29129A="+",
                                                    A29137A="+",
                                                    A29124A="+",
                                                    A29107A="+",
                                                    A29104A="+",
                                                    A29115A="+",
                                                    A29110A="+",
                                                    A29136A="+",
                                                    A29143A="+",
                                                    A29119A="+",
                                                    A29118A="+",
                                                    A29126A="+",
                                                    A29141A="+",
                                                    A29135A="+",
                                                    A29130A="+",
                                                    A29133A="+",
                                                    A29301A="+",
                                                    A29310A="+",
                                                    A29356A="+",
                                                    A39302A="+",
                                                    A29350A="+",
                                                    A29323A="+",
                                                    A29332A="+",
                                                    A29340A="+",
                                                    A29345A="+",
                                                    A29336A="+",
                                                    A29307A="+",
                                                    A39312A="+",
                                                    A29362A="+",
                                                    A29300A="+",
                                                    A29329A="+",
                                                    A39308A="+",
                                                    A29367A="+",
                                                    A29361A="+",
                                                    A29388A="+",
                                                    A29306A="+",
                                                    A39300A="+",
                                                    A29392A="+",
                                                    A29322A="+",
                                                    A29375A="+",
                                                    A29338A="+",
                                                    A29365A="+",
                                                    A29376A="+",
                                                    A29352A="+",
                                                    A29341A="+",
                                                    A29393A="+",
                                                    A29349A="+",
                                                    A39316A="+",
                                                    A29326A="+",
                                                    A29315A="+",
                                                    A29331A="+",
                                                    A29333A="+",
                                                    A29311A="+",
                                                    A29386A="+",
                                                    A29390A="+",
                                                    A29321A="+",
                                                    A29364A="+",
                                                    A29369A="+",
                                                    A29511A="+",
                                                    A29538A="+",
                                                    A29508A="+",
                                                    A29507A="+",
                                                    A29569A="+",
                                                    A29548A="+",
                                                    A29550A="+",
                                                    A29512A="+",
                                                    A29514A="+",
                                                    A29536A="+",
                                                    A29530A="+",
                                                    A29555A="+",
                                                    A29551A="+",
                                                    A29584A="+",
                                                    A29576A="+",
                                                    A99342A="+",
                                                    A29563A="+",
                                                    A29515A="+",
                                                    A29510A="+",
                                                    A29541A="+",
                                                    A29543A="+",
                                                    A29545A="+",
                                                    A29566A="+",
                                                    A29532A="+",
                                                    A29580A="+",
                                                    A95418A="+",
                                                    A29502A="+",
                                                    A29547A="+",
                                                    A29568A="+",
                                                    A29520A="+",
                                                    A29546A="+",
                                                    A29517A="+",
                                                    A29554A="+",
                                                    A29522A="+",
                                                    A29553A="+",
                                                    A95611A="+",
                                                    A29518A="+",
                                                    A29578A="+",
                                                    A29549A="+",
                                                    A29581A="+",
                                                    A29552A="+",
                                                    A29513A="+",
                                                    A29505A="+",
                                                    A29500A="+",
                                                    A29565A="+",
                                                    A39508A="+",
                                                    A29506A="+",
                                                    A29501A="+",
                                                    A29579A="+",
                                                    A29519A="+",
                                                    A29570A="+",
                                                    A29582A="+",
                                                    A94679A="+",
                                                    A29572A="+",
                                                    A29524A="+",
                                                    A29575A="+",
                                                    A29567A="+",
                                                    A29556A="+",
                                                    A29509A="+",
                                                    A29516A="+",
                                                    A29525A="+",
                                                    A29534A="+",
                                                    A29701A="+",
                                                    A29735A="+",
                                                    A29775A="+",
                                                    A29760A="+",
                                                    A29766A="+",
                                                    A29765A="+",
                                                    A29726A="+",
                                                    A29736A="+",
                                                    A29773A="+",
                                                    A29739A="+",
                                                    A29762A="+",
                                                    A29738A="+",
                                                    A29737A="+",
                                                    A29704A="+",
                                                    A29755A="+",
                                                    A29722A="+",
                                                    A29725A="+",
                                                    A29743A="+",
                                                    A29719A="+",
                                                    A29751A="+",
                                                    A29734A="+",
                                                    A29752A="+",
                                                    A29700A="+",
                                                    A29708A="+",
                                                    A29723A="+",
                                                    A29711A="+",
                                                    A29759A="+",
                                                    A29718A="+",
                                                    A29724A="+",
                                                    A29740A="+",
                                                    A29754A="+",
                                                    A29749A="+",
                                                    A29779A="+",
                                                    A29912A="+",
                                                    A29936A="+",
                                                    A29917A="+",
                                                    A29941A="+",
                                                    A29929A="+",
                                                    A29909A="+",
                                                    A29905A="+",
                                                    A29928A="+",
                                                    A29939A="+",
                                                    A29933A="+",
                                                    A29910A="+",
                                                    A29927A="+",
                                                    A29907A="+",
                                                    A29921A="+",
                                                    A29935A="+",
                                                    A29918A="+",
                                                    A29932A="+",
                                                    A20123A="+",
                                                    A20101A="+",
                                                    A20137A="+",
                                                    A20144A="+",
                                                    A20146A="+",
                                                    A20111A="+",
                                                    A20139A="+",
                                                    A20141A="+",
                                                    A20100A="+",
                                                    A20143A="+",
                                                    A89767A="+",
                                                    A20124A="+",
                                                    A20128A="+",
                                                    A20133A="+",
                                                    A20107A="+",
                                                    A20112A="+",
                                                    A20121A="+",
                                                    A20118A="+",
                                                    A20115A="+",
                                                    A20110A="+",
                                                    A20126A="+",
                                                    A20117A="+",
                                                    A20135A="+",
                                                    A20113A="+",
                                                    A20125A="+",
                                                    A20120A="+",
                                                    A20142A="+",
                                                    A20134A="+",
                                                    A20131A="+",
                                                    A20130A="+",
                                                    A20138A="+",
                                                    A20347A="+",
                                                    A20312A="+",
                                                    A20357A="+",
                                                    A20351A="+",
                                                    A20300A="+",
                                                    A20335A="+",
                                                    A20313A="+",
                                                    A20355A="+",
                                                    A20320A="+",
                                                    A20356A="+",
                                                    A20324A="+",
                                                    A20344A="+",
                                                    A20316A="+",
                                                    A20315A="+",
                                                    A20304A="+",
                                                    A20336A="+",
                                                    A20345A="+",
                                                    A20319A="+",
                                                    A94828A="+",
                                                    A20314A="+",
                                                    A20352A="+",
                                                    A20325A="+",
                                                    A20333A="+",
                                                    A20332A="+",
                                                    A20331A="+",
                                                    A20346A="+",
                                                    A20311A="+",
                                                    A20353A="+",
                                                    A20307A="+",
                                                    A20337A="+",
                                                    A20334A="+",
                                                    A20303A="+",
                                                    A20301A="+",
                                                    A20342A="+",
                                                    A90327A="+",
                                                    A20514A="+",
                                                    A20539A="+",
                                                    A20531A="+",
                                                    A20511A="+",
                                                    A20526A="+",
                                                    A20534A="+",
                                                    A20518A="+",
                                                    A20521A="+",
                                                    A20527A="+",
                                                    A20512A="+",
                                                    A20520A="+",
                                                    A20503A="+",
                                                    A20532A="+",
                                                    A20530A="+",
                                                    A20522A="+",
                                                    A20535A="+",
                                                    A20528A="+",
                                                    A20505A="+",
                                                    A20536A="+",
                                                    A20540A="+",
                                                    A20515A="+",
                                                    A20510A="+",
                                                    A20506A="+",
                                                    A20728A="+",
                                                    A20758A="+",
                                                    A20753A="+",
                                                    A20709A="+",
                                                    A20747A="+",
                                                    A20742A="+",
                                                    A20730A="+",
                                                    A20738A="+",
                                                    A20704A="+",
                                                    A20755A="+",
                                                    A20703A="+",
                                                    A20715A="+",
                                                    A20714A="+",
                                                    A20759A="+",
                                                    A20729A="+",
                                                    A20725A="+",
                                                    A20756A="+",
                                                    A20940A="+",
                                                    A20919A="+",
                                                    A20949A="+",
                                                    A20906A="+",
                                                    A20918A="+",
                                                    A20962A="+",
                                                    A90901A="+",
                                                    A20916A="+",
                                                    A20925A="+",
                                                    A20963A="+",
                                                    A20915A="+",
                                                    A20936A="+",
                                                    A20926A="+",
                                                    A20953A="+",
                                                    A20903A="+",
                                                    A20948A="+",
                                                    A20924A="+",
                                                    A20909A="+",
                                                    A20947A="+",
                                                    A20910A="+",
                                                    A20914A="+",
                                                    A20946A="+" ))


    # Store only ideal points
    out_ideal <- out[ ,1:14622]  # ideal points estimates

    # to check if converged.
    postscript("traceplots_House.eps", height=11, width=7.5, horizontal=F)
    n.size <- 5
    par(mfrow=c(n.size,2))
    for(i in 1:n.size){
    plot(density(out_ideal[,i]), main="", xlab="")
    title(main=paste("Ideal Point of", colnames(out_ideal)[i]), font.main=1)
    plot(out_ideal[,i], type="l", xlab="iteration", ylab="")
    title(main="Traceplot", font.main=1)
    }
    dev.off()
    
    MCMC <- out_ideal
    iter <- nrow(MCMC)
    original.label <- colnames(MCMC)
    
    MC_Data <- data.frame(t(MCMC))
    MC_Data$original.label <- original.label
   
    ### Decode the lable into ICPSR_ID and Congress
    # Also, Make sure to change Axxxx to xxxx !!!!!
      
    congress <- icpsr_id <- time <- a22 <- a23 <- rep(NA, length(original.label))

    for(j in 1:length(original.label)){
    a22[j] <- strsplit(original.label, split="A.t")[[j]][1]
    time[j] <- as.numeric(strsplit(original.label, split="A.t")[[j]][2])
    icpsr_id[j] <- as.numeric(strsplit(a22, split="theta.A")[[j]][2])
    }
    congress <- time + 78
    
    Info_dynamic <- data.frame(original.label, icpsr_id, time, congress)
    colnames(Info_dynamic) <- c("original.label","ICPSR_ID","time","congress") 
    
    ### Merge Legislator Information
    Info <- merge(Info_dynamic, info2, by=c("ICPSR_ID", "congress"), all=F)

    ### Save summary outputs to be used for Figures 2 and 4
    summary_results1 <- cbind(apply(out_ideal, 2, FUN=mean), t(apply(out_ideal, 2, FUN=quantile, probs=c(0.025, 0.975))))
    summary_results <- cbind(row.names(summary_results1), summary_results1)
    colnames(summary_results) <- c("original.label", "IRT_mean", "IRT_2.5Q", "IRT_97.5Q")
   
    # Merge Legislator Info and the Summary of Estimates
    Combined <- merge(summary_results, Info, by="original.label", all=F)
    Combined1 <- Combined[order(Combined$congress),]
    write.csv(Combined1, "Summary_Outputs_House.csv")


    ### Merge Legislator Info and the MCMC chains
    Outputs <- merge(Info, MC_Data, by="original.label", all=F)

    N.info <- 8 # the number of columns that are NOT MCMC chains

    ### Storages
    Dem.median <- matrix(NA, T, iter)
    Rep.median <- matrix(NA, T, iter)

    #######################
    ### Loop over congresses
    for (t in 1:T){
    Est <- subset(Outputs, time==t)
    for (j in 1:iter){
    Dem.median[t,j] <- median(Est[,N.info+j][Est$party==100])
    Rep.median[t,j] <- median(Est[,N.info+j][Est$party==200])
    }
    }
    
    ### End of the loop
    ####################
   
    Dem.median.quant <- apply(Dem.median, 1, FUN=quantile, probs=c(0.025, 0.5, 0.975))
    Dem.median.mean <- apply(Dem.median, 1, FUN=mean)
    Dem.median.CI <- rbind(Dem.median.mean, Dem.median.quant)
    Rep.median.quant <- apply(Rep.median, 1, FUN=quantile, probs=c(0.025, 0.5, 0.975))
    Rep.median.mean <- apply(Rep.median, 1, FUN=mean)
    Rep.median.CI <- rbind(Rep.median.mean, Rep.median.quant)
 
    ### Party medians

    postscript("Supplemental_Figure10.eps", height=6, width=8, horizontal=F)
    par(mfrow=c(1, 1))
    plot(1:T, Dem.median.CI[1,], type='n', col='blue', ylim=c(-3,3), xaxt="n", xlab="", ylab="")
    points(1:T, Dem.median.CI[1,],  type='o', lty=1, col='blue', cex=.7)
    segments(1:T, Dem.median.CI[2,], 1:T, Dem.median.CI[4,], col='blue')
    points(1:T, Rep.median.CI[1,],  type='o', lty=2, col='red', cex=.7)
    segments(1:T, Rep.median.CI[2,], 1:T, Rep.median.CI[4,], col='red')
    axis(side=1, las=3, at=1:33, labels=year.odd, cex.axis=.8)
    legend('topleft', legend=c("Democrats", "Republicans"), lty=c(1, 2), col=c('blue', 'red'),cex=.8)
    dev.off()
       







